! 隐式接口
subroutine say_hello()
    print *, 'Hello~'
end subroutine say_hello

program main

    implicit none
    external :: say_hello

    call say_hello()

end program main
